use strict;
use warnings;
use Chart::Lines;

my $chart = Chart::Lines->new(900, 400);

my $colors = {
#		'background' => [255,1,255],
		'dataset0' => [255,1,255]
};
#print $colors->{'background'}->[0];

my @legend_labels = ('nazwa pierwszej krzywej');


$chart->set(
		'title' => 'Tytul',
		'x_label' => 'dane',	
		'y_label' => 'wartosci',
		'legend' => 'bottom',	
		'legend_labels' => \@legend_labels,
		'colors' => $colors			
);

  my @data = ( [ 'foo', 213123, 'junk' ],
            [ 30.2,  23.5,  2.1   ] );

  $chart->png ("foo.png", \@data);
